home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / tcom / bpopt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  1.2 KB  |  56 lines
  1. {$G+,X+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   BPOPT.PAS 1.01                      *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit Bpopt;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  18.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, TComIni;
  19.  
  20. type
  21.   TBPlusOptionsForm = class(TForm)
  22.     EnabledBox: TRadioGroup;
  23.     OkBtn: TBitBtn;
  24.     CancelBtn: TBitBtn;
  25.     HelpBtn: TBitBtn;
  26.     procedure OkBtnClick(Sender: TObject);
  27.  
  28.   public
  29.     constructor Create(AOwner : TComponent); override;
  30.   end;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36.   constructor TBPlusOptionsForm.Create(AOwner : TComponent);
  37.   begin
  38.     inherited Create(AOwner);
  39.  
  40.     if BPlusEnabled then
  41.       EnabledBox.ItemIndex := 1
  42.     else
  43.       EnabledBox.ItemIndex := 0;
  44.   end;
  45.  
  46. procedure TBPlusOptionsForm.OkBtnClick(Sender: TObject);
  47. begin
  48.   if (EnabledBox.ItemIndex = 1) then
  49.     BPlusEnabled := True
  50.   else
  51.     BPlusEnabled := False;
  52. end;
  53.  
  54. end.
  55.  
  56.